LIST 

1 S=2; R=0; &C3)— 18;&C10 ) = 177 ; CLEAR ; PRINT " MISSILE DEFENDER" ; INPUT * ♦ OF PL 
AYERS? ( 1 - 4 3 " N 

2 FOR X=1T0 N; @C X )=0; NEXT X;T=0;GGSUB 400 

3 FOR R=1T0 N ; Y-33 ; T =0 ; BOX -70, -42,8,4, 1 ; BOX -50, -42, 8 , 4, 1 ; BOX -30,-42,8, 4,1 ; BO 
X 30, -42,8,4, 1;BQX 50, -42, 8 , 4, 1 ; BOX 70,-42,8,4,1 

4 X=R ; I =S ; G=RNE C 1 44 ) -73 ; H=Y ; L=S ; J=RMD C144)~73;K=Y 

5 2=S ; W=S ; Q=S ; A=0 ; B=0 ; BOX 0, -3, 1G0 , 75, 2; BOX 0, -43, 2, 2, 1 ; C=RND ( 144 ) -73 ; D=Y ; E=RN 
D C 144)-73;F=Y;Q=RND C 144 3-73; P=Y 

S CY=38; PRINT " PLAYER" , #2, X, #6, @C X ) 

7 IF T=GGOTO 380 

8 BOX G,H, 1, I, 1 
8 H=H-I 

10 IF H< -40 ; 1=0 

11 BOX J , K , 1 , L, 1 

12 K=K-L 

13 IF K< -40; L=0 

14 BOX C , D , 1 , Q , 1 

15 D=D-Q 

IB IF D< -40 ; G=0 

17 BOX E, F , 1 , Z, 1 

18 F=F-Z 

19 IF F< -40; Z=0 

20 BOX 0,P, 1,W, 1 

21 P=P-W 

22 IF P< -40; W=0 

23 IF PXC G , H ) -0GOTO 130 

24 IF PXC C , D ) -0GOTO HE 

25 IF PXC E , F ) -0GOTO 141 
2G IF PX C 0 , P 3 - 0GOT O 128 

27 IF PXC J , K 3 -0GOTO 135 

28 BOX A, B, 1,5, 1; BOX A, B, 5, 1,1 

29 BOX A, B, 5, 5, 2 

30 A=A+JXCR)b70c8 

31 B=B+JYCR)b70c8 

36 IF Z=0IF W=0IF G=0IF I=0IF L=0;GOTO 4 

37 IF @CX)>100;S=3 

38 IF @C X ) >200 ; S=4 ; Y=31 
33 IF @C X ) >300; S=5; Y=32 

40 IF ©C X ) >400; S=12; Y=28 

41 IF ©C X ) >500; S=14 
45 IF A>70A=70 

4G IF A<-70A=-70 

47 IF B<-30B=-30 

48 IF B >29B=23 

43 IF TRC R )=0GOTO 8 
50 LINE 0 , -38 , 0 
55 U=A; U=B 

58 NT=20; MU=” A" 

59 LINE U, U, 3 
80 NT=0 

63 LINE 0, -38, 0 
65 LINE U,U,2 

88 NT— 1 

89 &C 17 )=78; &C 18)=19;&C 13)=32;&C21 )=221 ; &C 22 )=126; &C 23 )=255 
70 BOX A , B , 4 , 2 , 3 ; BOX A,B,5,3,1 

72 BOX A , B , 3 , 10,3; BOX A, B, 8, 8, 3; BOX A, B, 12, 8, 3; BOX A, B, 14,3,3 

73 FO30 




74 BOX ft, B, 4, 12,1; BOX ft , B , 10, 10 , 1 ; FC=120; BOX ft , B , 14 , 8 , 1 ; BOX ft, B, IB, 4,1 

75 FC=12B 
7G NT=-0 

30 BOX ft, B, 16, 16,2 
81 IF Q=0GOTO 87 

85 IF ft>C-7IF R< C+7IF B>B-7IF B<D+7 0=8; @( X >=@( X ) + 10 

87 IF Z=0GOTO 89 

88 IF ft>E-7IF FKE+7IF B>F-7IF B<F+7 Z=0 ; @( X >=@C X >+10 

89 IF W=0GOTO 94 

90 IF ft>Q-7IF ft< 0+7IF B>P-7IF B<P+7 W=0; @K X >=@( X > + 10 

94 IF I=0GOTG 100 

95 IF ft>G-7IF FKG+7IF B>H-7IF B<H+7 1=0 ; X )=@t X >+10 

100 IF L=0GOTG 115 

101 IF ft>J-7IF fi< J+7IF B>K-7IF B<K+7 L=0; @( X >=@< X ) + 10 
115 GOTO 6 

11B BOX C, -42, 16,S,2;T=T+i;G0TG 7 
126 BOX 0, -42, 16,5,2;T=T+1;G0T0 7 
130 BOX G, -42, 16,5, 2; T=T+1 ; GOTO 7 
135 BOX J, -42, 16,5,2;T=T+l;G0T0 7 
141 BOX E, -42, 16,5,2; T=T+1 ; GOTO 7 

380 CY=0;CX=-30; PRINT “GftME OUER";FOR C=1T0 1000;NEXT C 
390 S=2; NEXT R 

400 CLEftR ; FOR X=1T0 N; PRINT ' PLftYER" , #2, X, #6, @( X > ; NEXT X;IF R>NGOTO 500 
405 FOR R=1T0 2000; NEXT ft; CLEftR ; RETURN 

500 CY=- 10; PRINT ” PULL TRC 1 > TO GO 

501 IF TRC 1 >=0GOTO 501 

502 RUN 

> 
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